home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / BCCGRX12.ZIP / contrib / bcc2grx / src / bccgrx18.c < prev    next >
C/C++ Source or Header  |  1993-07-24  |  880b  |  37 lines
  1. /*
  2.  *  BCC2GRX  -  Interfacing Borland based graphics programs to LIBGRX
  3.  *  Copyright (C) 1993  Hartmut Schirmer
  4.  *
  5.  *  see bccgrx.c for details
  6.  */
  7.  
  8. #include "bccgrx00.h"
  9.  
  10. void bar(int left, int top, int right, int bottom)
  11. {
  12.   _DO_INIT_CHECK;
  13.   left += VL; right  += VL;
  14.   top  += VT; bottom += VT;
  15.  
  16.   switch (FPATT) {
  17.     case SOLID_FILL : GrFilledBox( left, top, right, bottom, FILL);
  18.               break;
  19.     case EMPTY_FILL : GrFilledBox( left, top, right, bottom, COLBG);
  20.               break;
  21.     default         : FILLP.gp_bmp_fgcolor = FILL;
  22.               FILLP.gp_bmp_bgcolor = COLBG;
  23.               GrPatternFilledBox( left, top, right, bottom, &FILLP);
  24.               break;
  25.   }
  26. }
  27.  
  28. /* ------------------------------------------------------------------------ */
  29.  
  30. void clearviewport(void)
  31. {
  32.   _DO_INIT_CHECK;
  33.   GrFilledBox( VL, VT, VR, VB, COLBG);
  34.   moveto(0,0);
  35. }
  36.  
  37.